home *** CD-ROM | disk | FTP | other *** search
- object Form44: TForm44
- Left = 251
- Top = 241
- AutoSize = True
- BorderStyle = bsNone
- Caption = 'Kar��la�t�rma'
- ClientHeight = 480
- ClientWidth = 640
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Scaled = False
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 640
- Height = 480
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Image4: TImage
- Left = 552
- Top = 40
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image001.jpg>}
- OnMouseDown = Image4MouseDown
- OnMouseUp = Image4MouseUp
- end
- object Image5: TImage
- Left = 584
- Top = 40
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image002.jpg>}
- OnMouseDown = Image5MouseDown
- OnMouseUp = Image5MouseUp
- end
- object Image8: TImage
- Left = 552
- Top = 40
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image003.jpg>}
- Visible = False
- end
- object Image9: TImage
- Left = 584
- Top = 40
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image004.jpg>}
- Visible = False
- end
- object Image11: TImage
- Left = 408
- Top = 221
- Width = 149
- Height = 34
- AutoSize = True
- Picture.Data = {<image005.jpg>}
- end
- object Image12: TImage
- Left = 408
- Top = 219
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image006.jpg>}
- Visible = False
- end
- object Image2: TImage
- Left = 408
- Top = 277
- Width = 149
- Height = 34
- AutoSize = True
- Picture.Data = {<image007.jpg>}
- end
- object Image3: TImage
- Left = 408
- Top = 275
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image008.jpg>}
- Visible = False
- end
- object Label1: TLabel
- Left = 416
- Top = 232
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Bul'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label1MouseDown
- OnMouseUp = Label1MouseUp
- end
- object Label2: TLabel
- Left = 416
- Top = 288
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yazd�r'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label2MouseDown
- OnMouseUp = Label2MouseUp
- end
- object DBGrid1: TDBGrid
- Left = 80
- Top = 94
- Width = 481
- Height = 105
- DataSource = Form24.DataSource1
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Columns = <
- item
- Expanded = False
- FieldName = 'Isim'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Semtadi'
- Title.Caption = 'Semt Ad�'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Emlak'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'IlkMetre2'
- Title.Caption = 'Ilk Metre2'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Ikincimetre2'
- Title.Caption = 'Ikinci metre2'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyatilkdeger'
- Title.Caption = 'Fiyat �lk De�er'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Ikincifiyat'
- Title.Caption = 'Fiyat �kinci De�er'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Isisistemi'
- Title.Caption = 'Is� Sistemi'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Kat'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Oda'
- Width = 59
- Visible = True
- end>
- end
- object DBGrid2: TDBGrid
- Left = 82
- Top = 340
- Width = 485
- Height = 103
- DataSource = DataSource1
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 1
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Visible = False
- OnDblClick = DBGrid2DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Semtadi'
- Width = 108
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Metre2'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyati'
- Width = 78
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Kat'
- Width = 44
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Oda'
- Width = 48
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Isisistemi'
- Width = 101
- Visible = True
- end>
- end
- object lb1: TListBox
- Left = 128
- Top = 220
- Width = 113
- Height = 97
- Hint = 'Se�ti�ini Se�ene�e G�re Arama Yapma'
- ItemHeight = 13
- Items.Strings = (
- 'Semt Ad�na G�re'
- 'Fiyata G�re'
- 'Metre Kareye G�re'
- 'Semt ve Fiyata G�re'
- 'Semt ve Metreye G�re'
- 'Fiyat ve Metreye G�re'
- 'T�m�ne G�re')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = lb1Click
- end
- object DBGrid3: TDBGrid
- Left = 82
- Top = 340
- Width = 485
- Height = 103
- DataSource = DataSource2
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 3
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Visible = False
- OnDblClick = DBGrid3DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Semtadi'
- Width = 102
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyati'
- Width = 81
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Metre2'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Kat'
- Width = 53
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Oda'
- Width = 54
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Isisistemi'
- Width = 88
- Visible = True
- end>
- end
- object DBGrid4: TDBGrid
- Left = 82
- Top = 340
- Width = 485
- Height = 103
- DataSource = DataSource3
- DragKind = dkDock
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 4
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Visible = False
- OnDblClick = DBGrid4DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Emlak'
- Width = 91
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Semtadi'
- Width = 83
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyati'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Metre2'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Kat'
- Width = 32
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Oda'
- Width = 38
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Isisistemi'
- Width = 70
- Visible = True
- end>
- end
- object DBGrid5: TDBGrid
- Left = 82
- Top = 340
- Width = 485
- Height = 103
- DataSource = DataSource4
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 5
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Visible = False
- OnDblClick = DBGrid5DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Emlak'
- Width = 91
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Semtadi'
- Width = 91
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyati'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Metre2'
- Width = 54
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Kat'
- Width = 35
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Oda'
- Width = 38
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Isisistemi'
- Width = 71
- Visible = True
- end>
- end
- object DBGrid6: TDBGrid
- Left = 82
- Top = 340
- Width = 485
- Height = 103
- DataSource = DataSource6
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 6
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Visible = False
- OnDblClick = DBGrid6DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Semt'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Ada'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Parsel'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Pafta'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Imar'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Metre2'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Fiyati'
- Visible = True
- end>
- end
- object Query1: TQuery
- Active = True
- SQL.Strings = (
- 'select * from kdgiris')
- Left = 64
- Top = 304
- object Query1No: TIntegerField
- FieldName = 'No'
- end
- object Query1Metre2: TFloatField
- FieldName = 'Metre2'
- end
- object Query1Asansor: TStringField
- FieldName = 'Asansor'
- Size = 10
- end
- object Query1Hidrofor: TStringField
- FieldName = 'Hidrofor'
- Size = 10
- end
- object Query1Zeminler: TStringField
- FieldName = 'Zeminler'
- Size = 30
- end
- object Query1Kapilar: TStringField
- FieldName = 'Kapilar'
- Size = 30
- end
- object Query1Mutfak: TStringField
- FieldName = 'Mutfak'
- Size = 30
- end
- object Query1Kat: TStringField
- FieldName = 'Kat'
- Size = 15
- end
- object Query1Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Query1Depozito: TStringField
- FieldName = 'Depozito'
- end
- object Query1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Query1Isim: TStringField
- FieldName = 'Isim'
- Size = 30
- end
- object Query1Istel: TStringField
- FieldName = 'Istel'
- end
- object Query1Anahtar: TStringField
- FieldName = 'Anahtar'
- end
- object Query1Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Query1Oda: TStringField
- FieldName = 'Oda'
- end
- object Query1Isisistemi: TStringField
- FieldName = 'Isisistemi'
- Size = 30
- end
- object Query1Otopark: TStringField
- FieldName = 'Otopark'
- end
- object Query1Duvarlar: TStringField
- FieldName = 'Duvarlar'
- Size = 30
- end
- object Query1Tavanlar: TStringField
- FieldName = 'Tavanlar'
- Size = 30
- end
- object Query1Banyo: TStringField
- FieldName = 'Banyo'
- Size = 30
- end
- object Query1Yil: TStringField
- FieldName = 'Yil'
- Size = 30
- end
- object Query1Satis: TStringField
- FieldName = 'Satis'
- Size = 30
- end
- object Query1Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Query1Ceptel: TStringField
- FieldName = 'Ceptel'
- end
- object Query1Durum: TStringField
- FieldName = 'Durum'
- end
- object Query1Semtadi: TStringField
- FieldName = 'Semtadi'
- end
- end
- object DataSource1: TDataSource
- DataSet = Query1
- Left = 32
- Top = 304
- end
- object DataSource2: TDataSource
- DataSet = Query2
- Left = 104
- Top = 304
- end
- object Query2: TQuery
- Active = True
- SQL.Strings = (
- 'select * from sdgiris')
- Left = 144
- Top = 304
- object Query2No: TIntegerField
- FieldName = 'No'
- end
- object Query2Metre2: TFloatField
- FieldName = 'Metre2'
- end
- object Query2Asansor: TStringField
- FieldName = 'Asansor'
- end
- object Query2Hidrofor: TStringField
- FieldName = 'Hidrofor'
- end
- object Query2Zeminler: TStringField
- FieldName = 'Zeminler'
- end
- object Query2Kapilar: TStringField
- FieldName = 'Kapilar'
- end
- object Query2Mutfak: TStringField
- FieldName = 'Mutfak'
- end
- object Query2Kat: TStringField
- FieldName = 'Kat'
- Size = 10
- end
- object Query2Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Query2Dviz: TStringField
- FieldName = 'D�viz'
- end
- object Query2Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Query2Isim: TStringField
- FieldName = 'Isim'
- Size = 30
- end
- object Query2Istel: TStringField
- FieldName = 'Istel'
- end
- object Query2Anahtar: TStringField
- FieldName = 'Anahtar'
- end
- object Query2Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Query2Oda: TStringField
- FieldName = 'Oda'
- end
- object Query2Isisistemi: TStringField
- FieldName = 'Isisistemi'
- Size = 30
- end
- object Query2Otopark: TStringField
- FieldName = 'Otopark'
- Size = 30
- end
- object Query2Duvarlar: TStringField
- FieldName = 'Duvarlar'
- Size = 30
- end
- object Query2Tavanlar: TStringField
- FieldName = 'Tavanlar'
- Size = 30
- end
- object Query2Banyo: TStringField
- FieldName = 'Banyo'
- Size = 30
- end
- object Query2Yil: TStringField
- FieldName = 'Yil'
- end
- object Query2Satis: TStringField
- FieldName = 'Satis'
- Size = 30
- end
- object Query2Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Query2Ceptel: TStringField
- FieldName = 'Ceptel'
- end
- object Query2Durum: TStringField
- FieldName = 'Durum'
- end
- object Query2Semtadi: TStringField
- FieldName = 'Semtadi'
- end
- end
- object DataSource3: TDataSource
- DataSet = Query3
- Left = 192
- Top = 304
- end
- object DataSource4: TDataSource
- DataSet = Query4
- Left = 272
- Top = 304
- end
- object DataSource6: TDataSource
- DataSet = Query5
- Left = 344
- Top = 304
- end
- object Query3: TQuery
- Active = True
- SQL.Strings = (
- 'select * from kegiris')
- Left = 232
- Top = 296
- object Query3No: TIntegerField
- FieldName = 'No'
- end
- object Query3Metre2: TFloatField
- FieldName = 'Metre2'
- end
- object Query3Asansor: TStringField
- FieldName = 'Asansor'
- end
- object Query3Hidrofor: TStringField
- FieldName = 'Hidrofor'
- end
- object Query3Zeminler: TStringField
- FieldName = 'Zeminler'
- end
- object Query3Kapilar: TStringField
- FieldName = 'Kapilar'
- end
- object Query3Mutfak: TStringField
- FieldName = 'Mutfak'
- end
- object Query3Kat: TStringField
- FieldName = 'Kat'
- end
- object Query3Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Query3Depozito: TStringField
- FieldName = 'Depozito'
- end
- object Query3Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Query3Isim: TStringField
- FieldName = 'Isim'
- Size = 30
- end
- object Query3Istel: TStringField
- FieldName = 'Istel'
- end
- object Query3Anahtar: TStringField
- FieldName = 'Anahtar'
- end
- object Query3Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Query3Oda: TStringField
- FieldName = 'Oda'
- end
- object Query3Isisistemi: TStringField
- FieldName = 'Isisistemi'
- Size = 30
- end
- object Query3Otopark: TStringField
- FieldName = 'Otopark'
- end
- object Query3Duvarlar: TStringField
- FieldName = 'Duvarlar'
- Size = 30
- end
- object Query3Tavanlar: TStringField
- FieldName = 'Tavanlar'
- Size = 30
- end
- object Query3Banyo: TStringField
- FieldName = 'Banyo'
- Size = 30
- end
- object Query3Emlak: TStringField
- FieldName = 'Emlak'
- end
- object Query3Satis: TStringField
- FieldName = 'Satis'
- Size = 30
- end
- object Query3Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Query3Ceptel: TStringField
- FieldName = 'Ceptel'
- end
- object Query3Durum: TStringField
- FieldName = 'Durum'
- end
- object Query3Semtadi: TStringField
- FieldName = 'Semtadi'
- end
- end
- object Query4: TQuery
- Active = True
- SQL.Strings = (
- 'select * from segiris')
- Left = 312
- Top = 304
- object Query4No: TIntegerField
- FieldName = 'No'
- end
- object Query4Metre2: TFloatField
- FieldName = 'Metre2'
- end
- object Query4Asansor: TStringField
- FieldName = 'Asansor'
- end
- object Query4Hidrofor: TStringField
- FieldName = 'Hidrofor'
- end
- object Query4Zeminler: TStringField
- FieldName = 'Zeminler'
- end
- object Query4Kapilar: TStringField
- FieldName = 'Kapilar'
- end
- object Query4Mutfak: TStringField
- FieldName = 'Mutfak'
- end
- object Query4Kat: TStringField
- FieldName = 'Kat'
- Size = 6
- end
- object Query4Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Query4Dviz: TStringField
- FieldName = 'D�viz'
- Size = 30
- end
- object Query4Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Query4Isim: TStringField
- FieldName = 'Isim'
- Size = 30
- end
- object Query4Istel: TStringField
- FieldName = 'Istel'
- end
- object Query4Anahtar: TStringField
- FieldName = 'Anahtar'
- end
- object Query4Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Query4Oda: TStringField
- FieldName = 'Oda'
- end
- object Query4Isisistemi: TStringField
- FieldName = 'Isisistemi'
- Size = 30
- end
- object Query4Otopark: TStringField
- FieldName = 'Otopark'
- Size = 30
- end
- object Query4Duvarlar: TStringField
- FieldName = 'Duvarlar'
- Size = 30
- end
- object Query4Tavanlar: TStringField
- FieldName = 'Tavanlar'
- Size = 30
- end
- object Query4Banyo: TStringField
- FieldName = 'Banyo'
- Size = 30
- end
- object Query4Emlak: TStringField
- FieldName = 'Emlak'
- end
- object Query4Satis: TStringField
- FieldName = 'Satis'
- Size = 30
- end
- object Query4Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Query4Ceptel: TStringField
- FieldName = 'Ceptel'
- end
- object Query4Durum: TStringField
- FieldName = 'Durum'
- end
- object Query4Semtadi: TStringField
- FieldName = 'Semtadi'
- end
- end
- object Query5: TQuery
- Active = True
- SQL.Strings = (
- 'select * from arsa')
- Left = 376
- Top = 304
- object Query5No: TIntegerField
- FieldName = 'No'
- end
- object Query5Semt: TStringField
- FieldName = 'Semt'
- end
- object Query5Ada: TStringField
- FieldName = 'Ada'
- end
- object Query5Parsel: TStringField
- FieldName = 'Parsel'
- end
- object Query5Pafta: TStringField
- FieldName = 'Pafta'
- end
- object Query5Imar: TStringField
- FieldName = 'Imar'
- end
- object Query5Metre2: TStringField
- FieldName = 'Metre2'
- Size = 10
- end
- object Query5Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Query5Isim: TStringField
- FieldName = 'Isim'
- end
- object Query5Doviz: TStringField
- FieldName = 'Doviz'
- end
- object Query5Durum: TStringField
- FieldName = 'Durum'
- end
- object Query5Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Query5IsTelefonu: TStringField
- FieldName = 'IsTelefonu'
- end
- object Query5CepTelefonu: TStringField
- FieldName = 'CepTelefonu'
- end
- object Query5Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Query5Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 100
- end
- end
- end
-